' Tie-Bot 10

'initialize
cond
*.robage 0 =
start
50 rnd 55 store
14 56 store
1 .tie store
stop

cond
*.robage 1 =
start
1 .deltie store
stop

cond
*.eye2 *.eye8 !=
start
*.eye2 *.eye8 sub .aimsx store
stop

cond
*.eye4 *.eye6 !=
start
*.eye4 *.eye6 sub 2 div .aimsx store
stop

cond
*.refeye *56 =
start
200 .aimsx store
stop

cond
*.vel 40 <
*.refeye *56 !=
start
40 *.vel sub .up store
stop

cond 
*.nrg 4000 >
*.eye5 30 <
start
50 .repro store
stop

cond
*.eye5 30 >
*.refeye *56 !=
*.eye5 77 !=
*.eye4 *.eye6 =
start
*55 .tie store
*55 .readtie store
stop

cond
*.numties 0 >
start
-1 .tieloc store
-1000 .tieval store
*55 .tienum store
stop

cond
*.trefeye *56 =
start
*55 .deltie store
stop

cond
*.eye5 50 >
start
-1 .shoot store
stop

end
